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| **F ILE®*1D**BASPOWDJ 
BBBBBBBB AAAAAA SSSSSSSS_ PPPPPPPP 000000 Wie WW DDDDDDDD JJ 
BBBEBBBB AAAAAA SSSSSSSS_ PPPPPPPP 000000 wll WW DDDDDDDD JJ 
BB BB AA AA SS PP PP 00 00 WW Ww DD DD JJ 
BB BB AA AA SS PP PP 00 00 WW Ww DD DD JJ 
BB BB AA AA SS PP PP 00 00 WW Ww DD DD JJ 
Ak AA SS PP PP 00 00 WW Ww OD DD JJ 
BBBBBBBB AA aa SSSSSS PPPPPPPP 00 00 WW Ww DD DD JJ 
BBBBBBBB AA Aa SSSSSS PPPPPPPP 00 00 Ww D DD JJ 
BB BB AAAAAAAAAA SS PP 00 00 WW WW WwW DD DD JJ JJ 
BB BB AAAAAAAAAA SS PP 00 0O WW WW WwW DD DD JJ JJ 
BB BB AA AA ss «PP 00 00 WWWW WWwWWw DD DD JJ JJ cece 
BB BB AA Aa SS PP 00 00 WWWW WWwWW DD DD JJ cece 
BBBBBBBB Ab AA SSSSSSSS PP 000000 he WW DDDDDDDD JJJJJJ cece 
BBBBBBBB AA AA SSSSSSSS PP ooo00e wis WW DDDDDDDD JJJJJJ eeee 
LL III] SSSSSSSS 
LL HI! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL II SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII] SSSSSSSS 
LLLLLLLLLL 111] SSSSSSSS 


§} 


8 


E 10 
; BASIC double ** longword routine 


DECLARATIONS 
BASSPOWDJ = BASIC double ** Long 
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; BASIC double ** longword routine ,* P-1 ets 9 $3: 39:6? +8? atiyee Be oes ete Y ye Son MAR: 1 Page d) 
TITL : of ASSAQUDS BASIC double lon nguord d routine 
.IDENT /1-00 : File: baSpoubs’ MAR Edit: RNH1005 


ARR RBRAAASBAAAALALASALASAAAALAAALE RASA RAS EASE AAA R RRR AAR AAR ESAS AA SE RARE SESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


1G 
TH fo acche $3 rite UNDER A ‘a oe AND MAY BE USED AND i 
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TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMFNT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
; FACILITY: Basic Support Library 
; ABSTRACT: 


This module contains entry points to evepert es ex vans iinincae 
(** or “) in BASIC-PLUS-2 for DOUBLE ** LONGWOR 


; ENVIRONMENT: User Mode, AST Reentrant 


; MODIFIED BY: 
il, : VERSION 01 
nal 


‘ ° Redd, comnents. JMP instead of BRW. we eh 
8 3 - Add to the PSECT directive. JBS ase DEC-7 

04 - Redo fhe case analysis for pase leq 0 for compatability 
; with the PDP-11. JBS 24-APR-1979 
; 1-005 - Change shared sohional eoeemens to G* RNH 25-Sep-81 


COOSCCOCSOOCOCSCSOOCOOCOOSOOOOSOOSOSOOOSOSOSCOOOOSOSOOOSOOOOOOOOOOOOOOOOoOOo 
SOSOSSCSCOSOSSOSOOSSOSSOSOOSSOSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOSOOSOOOSOOOCOOoOSoOSoOO 
SOOSSCOCSOOSCOSOOOCOSOOSOSOSOSOOSOSOSOSOSSOSOSOSOSOSOSOOSOOSOSOSOOOSOSOSOOCOOOOSOSOoOO 
SOOCOCOOCOOCOSCOOCOSS OOO SCO SOS COCOCOOCOOOCOOCOOOO OOOO OOOOOoOoOOoOO 
SOONA NE WN 9 ODNAUE WN $9 ODNAU EWN (OOD NOU EWP“ OOONOU Ewin 


PBB BPE EES FANNIN NPINIPONINPI DN 2 OO Oo es es 


: AUTHOR: R. Will , CREATION DATE: 22-NOV-78 


-a 
oo 
2c 
“no 


le ** 


G 10 
lLongword routine 


15-SEP-1984 23:58:49 VAX/VMS Macro v04-00 
Patios fi $3:38:6 LBASRTL. SRC IBASPOUD) .MAR: 1 


09 26 -SBTTL DECLARATIONS 
0 4 ; INCLUDE FILES: 
009 55 3 
009 § H 
B80 8 3 EXTERNAL DECLARATIONS: 
$38 60 -DOSABL GBL ; Prevent undeclared 
00 61 3 symbols from seins 
44 6¢ ; automatically global. 
$090 64 eEXTRN OTS$POWDJ ; OTS$ double ** int exponentation 
0000 65 -EXTRN BASSK_DIVBY_ZER ; Divide by Zero 
0000 66 -EXTRN BASS$SSTOP ; Error reporting routine 
0000 67 
0000 68 ; 
0000 69 ; MACROS: 
0000 70 ; 
0000 71 
0000 i 3 
0000 73 ; EQUATED SYMBOLS: 
0000 74 ; 
0000 75 
0000 76 ; 
0000 77 ; OWN STORAGE: 
0000 fe 3 
0000 79 
0000 80 ; 
44 HH 3 PSECT DECLARATIONS: 
00000000 BS -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
4444 Be EXE, RD, NOWRT, LONG 


H 10 
BASSPOWDJ ; BASIC double ** Longword routine 15-SEP-1984 23:58:49 VAX/VMS Macro v04-00 Page 
M885 BaS$POWD) = BASIC double ** Long 6-SEP-1984 $9:38:$6 BASRTL.SRCIBASPOWDJ.MAR;1 3) 
f 7 -SBTTL BASSPOWDJ - BASIC double ** Long 
| ; 3; FUNCTIONAL DESCRIPTION: 
8 4 : This routine takes BASE ** EXP, using the following table 
O60 3 : for unusual cases: 
000 94 ; BASE > Call OTS$POWDJ, normal case. 
000 95; BASE = 0, EXP > Return 0.0. 
000 96 ; BASE = 0, EXP = Return 1.0. 
0000 97 ; BASE = 0, EXP < Error: divide by zero 
BBS 38 3 BASE < 0, EXP even Call OTS$POWDJ with -BASE 
44 190 3 BASE < 0, EXP odd Call OTSS$POWDJ with -BASE, negate result 
444 10 3; CALLING SEQUENCE: 
0900 108 3 CALL result.wd.v = BASS$POWDJ (base.rd.v, exponent.ri.v) 
000 105 ; INPUT PARAMETERS: 
0000 106; 
00000004 0000 107 base = 4 
0000000C 0000 £108 exponent = 12 
0000 109; 
0000 110 ; IMPLICIT INPUTS: 
0000 111; 
0000 We 3 NONE 
0000 113; 
0000 114 ; OUTPUT PARAMETERS: 
0000 115; 
0000 116; NONE 
0000 117; 
0000 118 ; IMPLICIT OUTPUTS: 
0000 119; 
0000 120; NONE 
0000 1s] 3 
0000 1 ¢ 3 FUNCTION VALUE: 
0000 1 ; COMPLETION CODES: 
0000 124; 3 
0000 125; double result of exponentiation 
0000 126; 
0000 127 ; SIDE EFFECTS: 
0000 128 ; ; 
0000 129; Will signal Divide By Zero if its arguments are bad, 
O80 130 ; and OTS$POWDJ may also signal. 
0 131; 
000 1 ¢ i-- 
000 1 
0000* 000 134 BASS$POWDJ:: MASK OTSS$POWDJ ; Entry point 
00 135 3; Since this routine uses no 
00 1 $ 3; registers and usually transfers 
00 1 3 control to OTS$POWDJ, we copy 
00 138 ; its register save mask and then 
00 139 ; JMP past its save mask and only 
0 140 3 save the registers once 
04 AC 3 0 141 TSTD base(AP) ; Test base relationship to zero 
06 = 1 0 146 BLEQ : If base leq 0, do case ened ysis 
00000002"GF 17 Q007 14 JMP G*OTSSPOWDJ+2 : Transfer control to the OTS 


———- 


I 10 
BASSPOWDJ ; BASIC double ** longword routine 15-SEP-1984 23:58:49 VAX/VMS Macro v04-00 Page 4 
me tts BASSPOWDJ = BASIC double ** long Pantie 93:38:66 BASRTL.SRCJBASPOWDJ .MAR; 1 . (3) 
4 a 3; routine to do exponentiation 
D : Come here if the base is less than or equal to zero. We must filter 
; several special cases, as described above. 
16 13 is: BEQL 86 4 : Branch if bese = 0 
OC AC Be PUSHL exponent (AP) 3; Stack EXP as person to OTSS$POWDJ 
7E 046 ag MNEGD ogee tt -(SP) 3; Stack -base also 
nena 0 FB CALLS #3, G*OTS$POWDJ ; Call integer power routines 
03 OC AC 34 LBC Srpenent AP, 3; Branch if exponent even 
50. 0 550 2 MNEGD RO, R 3: Exponent odd negate the result 
04 2s: RET 3 and return with it. 
: Come here if the base is equal to zero. The value we return depends 
3; upon the sign of the exponent. 
OC AC DS is: TSTL exponent (AP) : Test the exponent against zero 
09 19 BLSS 6$ ; Branch if exponent [ss 0 
03 «13 BEQL 5$ 3; Branch if exponent is 0 


se 
3; Come here if the base is zero and the exponent is greater than zero. 
3; BASIC defines this as 0.0. 


CLRD RO ; RO, R1 
RET 


50 7C¢ = 0.0 
; Return to caller 


04 
s¢ 
3 Come here if the base is zero and the exponent is zero. BASIC defines 
3; this as 1.0. 
50 08 70 S$: MOVD #1, RO ; RO, R1 = 1.0 
04 RET : Return to caller. 


£4 
: Come here if the base is zero and the exponent is less than zero. 
.« BASIC aefines this as an error. 


MOVZBL #BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
CALLS #1, G*BASS$STOP ; Report error, never return. 


ow 
Sad 


7E 00°8F 9A 
00000000'GF 01 FB 


SOOCOCSCOOSOOSOSOSOSOSOSOSOOSOSOOSOOSOSOSOOOOOOOOSOOOOOOOO 


SOOCOCOCOCOCCOCOCCSOSCOOOCOOCOOO OOO OCOOOOOOOOOoOoOO 

AAANIAIAA AIA CRIN PPYIDINININPPININPIPIPPYIPIPIPININIPY 2 — — QOCOOC0COO 

TET SAUAWIIMIWS 0 FF FH HMO OOOO POVMUIUUNS —TCOw "oco7o 

— os = = 2“ —) 1 ) 9 — SS SS ss SS Os SS SS Ys YY SY YY YS SS 

BO D0 9 SIN NSN SSR DPA AAA AAD MTT & 

NS ODNONALS WN — O OONA UNE WN" O OONOAU EWP OOOWVOuns 
. 


- END 


J 10 
BASSPOWDJ 3 BASIC double ** Longword routine ye SEP=1984 AX/VMS Macro V04-00 P 
Symbol table z aueeerISRs 13:88ico PBAGK Te caeibaseouss.mar:1 P28" (3, 


BASSS$STOP eeeerere ; 0 
BASSK_DIVBY_ZER seereeee 09 
BASSPOWDJ 00000000 Rc” 1 
= 00000004 

EXPONENT = 0000000C 
OTSSPOWDJ eeneeeee = =X 8600 

teow ewmnmen err eo ewce o@+ 

: ; Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
— OS , 00000000 ( 0.) 00 ¢ 0. ) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE 0000003E ¢« 62.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

fom ee nea wan cae me moe me b 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:00.43 
pounend processing 114 00:00:00.48 00:00:01.66 
s 1 73 :00:00.45 00:00:01.25 

oe F table sort 0 00:00:00.00 00:00:00.00 
Pass 2 45 00:00:00.36 00:00:01.32 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output g B8: 8880-8 00:00:00.00 
Assembler run totals 26 00:00:01.39 00:00:04.90 


The working set Limit was 900 pages. 
1934 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space of bag to hold 6 non-local and 5 local symbols. 
2 source Lines were read in Pass 1, produci "I object records in Pass 2. 
ma 


0 pages of virtual memory were used to define cros. 


$eoeccececccecececcescoccon+ 


Macro Library name Macros defined 

-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASPOWDJ/OBJ=0BJ$:BASPOWDJ MSRC$:BASPOWDJ/UPDATE=(ENHS:BASPOWDJ) 


(29 8H-BT13A-SE oo we T CORPORATION 
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